home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 72 / 64er_Magazin_Sonderheft_72_19xx_Markt__Technik_de_Side_A.d64 / graf.einf. fx-80 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  201 b   |  11 lines
  1. 10 rem --- druck einer sinuskurve ---
  2. 20 rem -- im grafikmodus des epson --
  3. 30 open1,4
  4. 40 print#1,chr$(27);"*";chr$(0);chr$(100);chr$(0);
  5. 50 fori=1to100
  6. 60 a=2^int((1+sin(i*(NULL)/20))*3.5+.5)
  7. 70 print#1,chr$(a);
  8. 80 nexti
  9. 90 print#1
  10. 100 close1
  11.